home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 9 / applic / career.bas < prev    next >
Encoding:
BASIC Source File  |  1986-04-17  |  5.4 KB  |  97 lines

  1. 10    GOTO 100
  2. 20    CLEARW 2
  3. 22    LINEF 100,14,539,14:LINEF 539,14,539,34:LINEF 539,34,100,34
  4. 24    LINEF 100,34,100,14:COLOR 1,2,1:FILL 319,15
  5. 26    GOTOXY 20,2:? " CAREER SATISFACTION & EVALUATION "
  6. 28    RETURN
  7. 30    FOR NDX=1 TO MAX:READ A$
  8. 32    GOTOXY 5,10:? BLANK$:GOTOXY 5,10:? A$
  9. 34    GOTOXY 10,15:INPUT "            YOUR CHOICE ?",D$:A=ASC(LEFT$(D$,1))
  10. 36    IF A<49 OR A>51 THEN 32
  11. 38    A=A-48:ON A GOSUB 40,50,60
  12. 39    NEXT NDX:RETURN
  13. 40    ANS(NDX)=0:RETURN
  14. 50    ANS(NDX)=5:RETURN
  15. 60    ANS(NDX)=10:RETURN
  16. 70    FOR NDX=1 TO MAX:ANS(TOT)=ANS(TOT)+ANS(NDX):NEXT NDX:RETURN
  17. 100   FULLW 2:CLEARW 2
  18. 110   DIM ANS(15):BLANK$=STRING$(130," ")
  19. 120   B$="         1> NOT TRUE       2> SOMEWHAT TRUE       3> ABSOLUTELY TRUE"
  20. 130   FOR I=1 TO 15:ANS(I)=0:NEXT I:IF AGN THEN 260
  21. 140   GOSUB 20
  22. 150   GOTOXY 11,5:? "Your answers to the statements in this quiz will help"
  23. 160   ? TAB(13);"you determine whether your current career is the right"
  24. 170   ? TAB(13);"one for you."
  25. 180   ? :? TAB(13);"This quiz evaluates five distinct categories concerning"
  26. 190   ? TAB(13);"your current career and assigns a numerical value to"
  27. 200   ? TAB(13);"each.  When you have finished the quiz, the categories"
  28. 210   ? TAB(13);"will be displayed along with your score in each.  An"
  29. 220   ? TAB(13);"evaluation of your suitability for your current career"
  30. 230   ? TAB(13);"will also be shown."
  31. 240   COLOR 2,2,1
  32. 250   ? :? TAB(18);"Press <RETURN> when ready to take quiz.....";:INPUT A$
  33. 260   COLOR 1,2,1
  34. 270   CLEARW 2:GOSUB 20
  35. 280   GOTOXY 11,6:? "SELECT THE ANSWER THAT IS MOST APPROPRIATE."
  36. 290   GOTOXY 1,13:? B$
  37. 300   MAX=5:GOSUB 30:TOT=10:GOSUB 70
  38. 310   MAX=6:GOSUB 30:TOT=11:GOSUB 70
  39. 320   MAX=7:GOSUB 30:TOT=12:GOSUB 70
  40. 330   MAX=5:GOSUB 30:TOT=13:GOSUB 70
  41. 340   MAX=5:GOSUB 30:TOT=14:GOSUB 70
  42. 350   FOR NDX=10 TO 14:ANS(15)=ANS(15)+ANS(NDX):NEXT NDX
  43. 360   CLEARW 2
  44. 370   LINEF 100,14,539,14:LINEF 539,14,539,34:LINEF 539,34,100,34
  45. 380   LINEF 100,34,100,14:COLOR 1,3,1:FILL 319,15
  46. 390   GOTOXY 27,2:? " EVALUATION PROFILE "
  47. 400   SUIT=0:IF ANS(10)>30 THEN SUIT=SUIT+2
  48. 410   IF ANS(11)>=35 THEN SUIT=SUIT+2
  49. 420   IF ANS(12)>=40 THEN SUIT=SUIT+2
  50. 430   IF ANS(13)>=30 THEN SUIT=SUIT+2
  51. 435   IF ANS(14)>=30 THEN SUIT=SUIT+2
  52. 440   ? :? :? TAB(26);"Category";TAB(50);"Points"
  53. 450   ? TAB(25);"-------------------------------"
  54. 460   ? TAB(25);"FINANCIAL";TAB(52);ANS(10)
  55. 470   ? TAB(25);"PSYCHOLOGICAL";TAB(52);ANS(11)
  56. 480   ? TAB(25);"PERSONALITY";TAB(52);ANS(12)
  57. 490   ? TAB(25);"COMPATIBILITY";TAB(52);ANS(13)
  58. 500   ? TAB(25);"POTENTIAL";TAB(52);ANS(14)
  59. 510   ? TAB(25);"-------------------------------"
  60. 520   ? TAB(26);"Composite Total";TAB(51);ANS(15)
  61. 530   ? :? "           ON A SCALE OF 1 TO 10, YOUR JOB SUITABILITY RATES";SUIT
  62. 540   IF SUIT<=2 THEN ? "               YOU ARE DEFINITELY IN THE WRONG JOB."
  63. 550   IF SUIT=4 THEN ? "                 YOU PROBABLY SHOULD CHANGE CAREERS."
  64. 560   IF SUIT=6 THEN ? "           YOU MAY OR MAY NOT BE SUITED FOR YOUR CAREER."
  65. 570   IF SUIT=8 THEN ? "            YOU ARE FAIRLY WELL SUITED FOR YOUR CAREER."
  66. 580   IF SUIT=10 THEN ? "             YOU ARE VERY WELL SUITED FOR YOUR CAREER."
  67. 590   INPUT "                     Press <RETURN> to do again. ",A$
  68. 600   CLEAR:AGN=1:RESTORE:GOTO 10
  69. 1000  DATA I am making a satisfactory amount of money.
  70. 1010  DATA My financial situation probably will improve in the coming years.
  71. 1020  DATA In my field--I will continue to be paid in an amount consistent with          my abilities.
  72. 1030  DATA I can earn more money if I work harder and/or more creatively.
  73. 1040  DATA The income potential in my field continues to look good.
  74. 1050  DATA I like to think about my work--even when I'm not on the job.
  75. 1060  DATA I often find my work fun.
  76. 1070  DATA My work is important to society.
  77. 1080  DATA I look forward to going to work.
  78. 1090  DATA I feel that I have an opportunity to grow personally because of my           career.
  79. 1100  DATA My work helps enhance my family life and my life as a whole.
  80. 1110  DATA I am adequately able to set my own owrk pace and direction on the            job.
  81. 1120  DATA At work--I am most content when I can try out my own ideas--and              that happens often.
  82. 1130  DATA There is great variety in my job.
  83. 1140  DATA My job is so challenging that I often want to do extra work.
  84. 1150  DATA The fringe benefits of my job are satisfactory.
  85. 1160  DATA The amount of pressure at work is adequately stimulating and                 maximizes my work output.
  86. 1170  DATA My job provides me with an adequate amount of free time to pursue            outside activities.
  87. 1180  DATA I have a sufficient amount of contact with other people through              my work.
  88. 1190  DATA I often get to exchange ideas with other people through my work.
  89. 1200  DATA My supervisors let me know that they appreciate my work.
  90. 1210  DATA I meet an ample number and variety of people through work-related            activities.
  91. 1220  DATA I feel that my social skills are constantly improving as a result            of my work-related activities.
  92. 1230  DATA I am making adequate advancement through my career.
  93. 1240  DATA My career will continue to provide ample job flexibility in the              future.
  94. 1250  DATA I will be able to reach my goals through my present career.
  95. 1260  DATA My career will continue to provide stimuilating challenges in the            future.
  96. 1270  DATA My job is in a growing field.
  97. ə